REPORT ZPROGRAM1 NO STANDARD PAGE HEADING. 
write /'welcome to АВАР" color : 1,2,3,4,5,6,7. 


write :/ sy-vline. 


REPORT ZPATTERN2. 
PARAMETER p_max type i. 


data: ii type і value 1, 
jj type i value 1. 


ii = р тах. 


WHILE ії >= 1. 
jj = 1. 
WHILE jj <= ii. 
write "Ж", 
jj = jj +1. 
ENDWHILE. 
write /. 
ii = ії - 1. 
ENDWHILE. 
REPORT ZPATTERND. 


PARAMETER p_max type i. 


data: iitypei, 
jj type i, kk type i, Il typei. 


ii = р тах. 
WHILE ії >= 1. 


jj = 1. 
WHILE jj < ii. 
write ". 
jj = jj + 1. 
ENDWHILE. 


kk = p_max. 
WHILE kk > ii. 

write '*'. 
kk = kk - 1. 


ENDWHILE. 
*write kk. 


П = р тах. 
WHILE | >= КК. 
write "Ж, 

I = 11- 1. 
ENDWHILE. 


write /. 
ili = ii- 1. 
ENDWHILE. 


REPORT 2 РАТТЕВМ 123. 


PARAMETER p_max type i. 
data : м ії type і value 1, м || type i VALUE 1. 


DO p_max TIMES. 
v_ii = SY-INDEX. 
Skip 1. "й skips one line in output 


DO v_ii TIMES. 
WRITE SY-index LEFT-JUSTIFIED. 
ENDDO. 


ENDDO. 


REPORT Z EVEN NUMBERS. 

PARAMETER p_no TYPE i. 

data гм ії type i value 1, v_data type і, у соипї буре і. 
while v_count <= p_no. 

v_data = м ії mod 2. 


if v_data = 0. 

write / м іі. 

v_count = v_count + 1. 
ENDIF. 

м ії = м ії +1. 


ENDwhile. 


REPORT 2 ЕМЕМ ОРО NUMBERS SUM. 
PARAMETER р по TYPE і. 


data гм ії type і value 1, v_data type і, v_count type і, v_sum_even ty 
pe i, м ѕит оаа type i, м || type і value 1. 


while v_count < p_no. 

v_data = м ії mod 2. 

if v_data = 0. 

write / м іі. 

v_count = v_count + 1. 
v_sum_even = v_sum_even + м іі. 
ENDIF. 

м ії = м ії ж 1. 

ENDwhile. 

uline. 

write :/'sum of even numbers’, м ѕит емеп. 
uline. 


uline. 

v_count=0. 

while v_count < p_no. 
v_data = v_jj mod 2. 

if v_data = 1. 

write / v_jj. 

v_count = v_count + 1. 
v_sum_odd = v_sum_odd + м ||. 
ENDIF. 

міфі «м |і + 1. 
ENDwhile. 


uline. 


write :/'sum of odd numbers’, v_sum_odd. 
uline. 


IF у бит еуеп = v_sum_odd. 
write ' both sums are equal '. 
else. 

write 'Sums are not equal’. 
ENDIF. 


REPORT Z_FACTORIAL_OF_ANY_NUMEBR. 


PARAMETER р по typei. 
data v_fact type i value 1. 


WHILE sy-index <= p_no. 


v_fact = v_fact * sy-index. 
ENDWHILE. 


write v_fact. 
REPORT Z_FIBONACCI SERIES ОҒ М МО NO STANDARD PAGE HEADIN 


G. 


uline. 


PARAMETER р по ТҮРЕІ. 

DATA: м_пт1 ТҮРЕ |, v_nm2 TYPE | value 1, v_nm3 ТҮРЕ I value 0. 
DO p_no TIMES. 

write: м пт3. 

му пт1 = v_nm2. 

м пт2 = v_nm3. 

v_nm3 = м пті + у пт2. 

write ','. 

ENDDO. 


REPORT Z SQUARE_N NUMBERS. 
PARAMETER Р МО TYPE І. 
ОАТА М 50 ТТРЕ І. 


WHILE SY-INDEX <= Р МО. 
V_SQ = SY-INDEX * SY-INDEX. 


WRITE :/ ‘Square ОҒ", SY-INDEX, "15", М 50. 
ENDWHILE. 


